home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_am.inc < prev    next >
Text File  |  1998-05-14  |  5KB  |  309 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    ÆåìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. mid_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #8,d1
  17.     subi.w    #32,d2
  18.     addi.w    #$001b,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d1
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     subi.w    #16,d1
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     addi.w    #16,d2
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     rts
  54. @@:
  55.     subi.w    #8,d1
  56.     subi.w    #32,d2
  57.     addi.w    #$401b,d7
  58.     move.w    d1,(a6)+
  59.     move.w    d2,(a6)+
  60.     move.w    d7,(a6)+
  61.     move.w    #$0003,(a6)+
  62.  
  63.     addi.w    #16,d2
  64.     addq.w    #1,d7
  65.     move.w    d1,(a6)+
  66.     move.w    d2,(a6)+
  67.     move.w    d7,(a6)+
  68.     move.w    #$0003,(a6)+
  69.  
  70.     subi.w    #16,d1
  71.     addq.w    #1,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     addi.w    #16,d1
  78.     addi.w    #16,d2
  79.     addq.w    #1,d7
  80.     move.w    d1,(a6)+
  81.     move.w    d2,(a6)+
  82.     move.w    d7,(a6)+
  83.     move.w    #$0003,(a6)+
  84.  
  85.     addi.w    #16,d2
  86.     addq.w    #1,d7
  87.     move.w    d1,(a6)+
  88.     move.w    d2,(a6)+
  89.     move.w    d7,(a6)+
  90.     move.w    #$0003,(a6)+
  91.  
  92.     rts
  93. *---------------------------------------
  94. mid_a:
  95.     move.w    C_X(a1),d1
  96.     move.w    C_Y(a1),d2
  97.     tst.w    C_LR_F(a1)
  98.     bne    @f
  99.  
  100.     subi.w    #32,d2
  101.     addi.w    #$0020,d7
  102.     move.w    d1,(a6)+
  103.     move.w    d2,(a6)+
  104.     move.w    d7,(a6)+
  105.     move.w    #$0003,(a6)+
  106.  
  107.     subi.w    #16,d1
  108.     addi.w    #16,d2
  109.     addq.w    #1,d7
  110.     move.w    d1,(a6)+
  111.     move.w    d2,(a6)+
  112.     move.w    d7,(a6)+
  113.     move.w    #$0003,(a6)+
  114.  
  115.     addi.w    #16,d1
  116.     addq.w    #1,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     subi.w    #16,d1
  123.     addi.w    #16,d2
  124.     addq.w    #1,d7
  125.     move.w    d1,(a6)+
  126.     move.w    d2,(a6)+
  127.     move.w    d7,(a6)+
  128.     move.w    #$0003,(a6)+
  129.  
  130.     addi.w    #16,d1
  131.     addq.w    #1,d7
  132.     move.w    d1,(a6)+
  133.     move.w    d2,(a6)+
  134.     move.w    d7,(a6)+
  135.     move.w    #$0003,(a6)+
  136.  
  137.     subi.w    #16,d1
  138.     addi.w    #16,d2
  139.     addq.w    #1,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.     rts
  146.  
  147. @@:
  148.     subi.w    #16,d1
  149.     subi.w    #32,d2
  150.     addi.w    #$4020,d7
  151.     move.w    d1,(a6)+
  152.     move.w    d2,(a6)+
  153.     move.w    d7,(a6)+
  154.     move.w    #$0003,(a6)+
  155.  
  156.     addi.w    #16,d2
  157.     addq.w    #2,d7
  158.     move.w    d1,(a6)+
  159.     move.w    d2,(a6)+
  160.     move.w    d7,(a6)+
  161.     move.w    #$0003,(a6)+
  162.  
  163.     addi.w    #16,d1
  164.     subq.w    #1,d7
  165.     move.w    d1,(a6)+
  166.     move.w    d2,(a6)+
  167.     move.w    d7,(a6)+
  168.     move.w    #$0003,(a6)+
  169.  
  170.     subi.w    #16,d1
  171.     addi.w    #16,d2
  172.     addq.w    #3,d7
  173.     move.w    d1,(a6)+
  174.     move.w    d2,(a6)+
  175.     move.w    d7,(a6)+
  176.     move.w    #$0003,(a6)+
  177.  
  178.     addi.w    #16,d1
  179.     subq.w    #1,d7
  180.     move.w    d1,(a6)+
  181.     move.w    d2,(a6)+
  182.     move.w    d7,(a6)+
  183.     move.w    #$0003,(a6)+
  184.  
  185.     addi.w    #16,d2
  186.     addq.w    #2,d7
  187.     move.w    d1,(a6)+
  188.     move.w    d2,(a6)+
  189.     move.w    d7,(a6)+
  190.     move.w    #$0003,(a6)+
  191.  
  192.     rts
  193. *---------------------------------------
  194. mid_t:
  195.     move.w    C_X(a1),d1
  196.     move.w    C_Y(a1),d2
  197.     tst.w    C_LR_F(a1)
  198.     bne    @f
  199.  
  200.     subi.w    #16,d1
  201.     subi.w    #32,d2
  202.     addi.w    #$0026,d7
  203.     move.w    d1,(a6)+
  204.     move.w    d2,(a6)+
  205.     move.w    d7,(a6)+
  206.     move.w    #$0003,(a6)+
  207.  
  208.     addi.w    #16,d1
  209.     addq.w    #1,d7
  210.     move.w    d1,(a6)+
  211.     move.w    d2,(a6)+
  212.     move.w    d7,(a6)+
  213.     move.w    #$0003,(a6)+
  214.  
  215.     subi.w    #16,d1
  216.     addi.w    #16,d2
  217.     addq.w    #1,d7
  218.     move.w    d1,(a6)+
  219.     move.w    d2,(a6)+
  220.     move.w    d7,(a6)+
  221.     move.w    #$0003,(a6)+
  222.  
  223.     addi.w    #16,d1
  224.     addq.w    #1,d7
  225.     move.w    d1,(a6)+
  226.     move.w    d2,(a6)+
  227.     move.w    d7,(a6)+
  228.     move.w    #$0003,(a6)+
  229.  
  230.     subi.w    #16,d1
  231.     addi.w    #16,d2
  232.     addq.w    #1,d7
  233.     move.w    d1,(a6)+
  234.     move.w    d2,(a6)+
  235.     move.w    d7,(a6)+
  236.     move.w    #$0003,(a6)+
  237.  
  238.     addi.w    #16,d1
  239.     addq.w    #1,d7
  240.     move.w    d1,(a6)+
  241.     move.w    d2,(a6)+
  242.     move.w    d7,(a6)+
  243.     move.w    #$0003,(a6)+
  244.  
  245.     subi.w    #16,d1
  246.     addi.w    #16,d2
  247.     addq.w    #1,d7
  248.     move.w    d1,(a6)+
  249.     move.w    d2,(a6)+
  250.     move.w    d7,(a6)+
  251.     move.w    #$0003,(a6)+
  252.  
  253.     rts
  254. @@:
  255.     subi.w    #16,d1
  256.     subi.w    #32,d2
  257.     addi.w    #$4027,d7
  258.     move.w    d1,(a6)+
  259.     move.w    d2,(a6)+
  260.     move.w    d7,(a6)+
  261.     move.w    #$0003,(a6)+
  262.  
  263.     addi.w    #16,d1
  264.     subq.w    #1,d7
  265.     move.w    d1,(a6)+
  266.     move.w    d2,(a6)+
  267.     move.w    d7,(a6)+
  268.     move.w    #$0003,(a6)+
  269.  
  270.     subi.w    #16,d1
  271.     addi.w    #16,d2
  272.     addq.w    #3,d7
  273.     move.w    d1,(a6)+
  274.     move.w    d2,(a6)+
  275.     move.w    d7,(a6)+
  276.     move.w    #$0003,(a6)+
  277.  
  278.     addi.w    #16,d1
  279.     subq.w    #1,d7
  280.     move.w    d1,(a6)+
  281.     move.w    d2,(a6)+
  282.     move.w    d7,(a6)+
  283.     move.w    #$0003,(a6)+
  284.  
  285.     subi.w    #16,d1
  286.     addi.w    #16,d2
  287.     addq.w    #3,d7
  288.     move.w    d1,(a6)+
  289.     move.w    d2,(a6)+
  290.     move.w    d7,(a6)+
  291.     move.w    #$0003,(a6)+
  292.  
  293.     addi.w    #16,d1
  294.     subq.w    #1,d7
  295.     move.w    d1,(a6)+
  296.     move.w    d2,(a6)+
  297.     move.w    d7,(a6)+
  298.     move.w    #$0003,(a6)+
  299.  
  300.     addi.w    #16,d2
  301.     addq.w    #2,d7
  302.     move.w    d1,(a6)+
  303.     move.w    d2,(a6)+
  304.     move.w    d7,(a6)+
  305.     move.w    #$0003,(a6)+
  306.  
  307.     rts
  308. *---------------------------------------
  309.